home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
gsdb25.zip
/
DB_XPL07.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-11-28
|
688b
|
32 lines
program DB_Xpl07;
uses
CRT,
DOS,
GS_KeyI,
GS_dBFld,
GS_dBTbl,
GS_dBase;
var
Health : GS_dBFld_Objt;
HlthTab : dbTabl_Pick_Obj;
begin
ClrScr;
Health.Init('HEALTH');
Health.Open;
Health.Index('FOODNAME');
HlthTab.Init_dbTabl(Health, '[ FOODS ]',20,2,60,22,
Yellow,Blue,LightGray,Blue,LightGray);
while HlthTab.Pick_dBTabl('FOOD+" ("+FOOD_CODE+")"') do
begin
while Health.FieldUpdateScreen do
begin
if GS_KeyI_Chr = Kbd_PgUp then
Health.GetRec(Prev_Record)
else
Health.GetRec(Next_Record);
end;
end;
Health.Close;
end.